home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fatted Calf
/
The Fatted Calf.iso
/
Applications
/
Conversion
/
Convert_PICT
/
Convert PICT.app
/
UncommentedPSCode
/
Text
< prev
Wrap
Text File
|
1994-05-24
|
5KB
|
291 lines
%BEGIN Text
/textY 0 def
/textX 0 def
/extraSpaceWidth 0 def
/extraCharWidth 0 def
/typeSize 12 def
/Chicago findfont
typeSize scalefont
setfont
/xscale 1 def
/yscale 1 def
/macBold false def
/macItalic false def
/macUnderline false def
/macOutline false def
/macShadow false def
/macCondense false def
/macExtend false def
/textMode /srcCopy def
/suppressText false def
/textCenterX 0 def
/textCenterY 0 def
/textAngle 0 def
/rotateText false def
/drawChar
{
textMatrix setmatrix
show
originalMatrix setmatrix
}
def
/pathNonZero
{
pathbbox
/top exch def
pop
/bottom exch def
pop
top bottom sub 0 eq
{false}
{true}
ifelse
}
def
/PICTshow
{
/theString exch def
/y exch def
/x exch def
/extend 0 def % extra space to widen each char
/charString 1 string def % holds char as a string
suppressText false eq
{
gsave
rotateText true eq
{ textAngle rotate }
if
/originalMatrix matrix currentmatrix def
/textMatrix
xscale yscale matrix currentmatrix scale
dup 3
matrix currentmatrix 3 get
-1 mul put
macItalic true eq
{ dup 2 .5 put }
if
def
macBold true eq
{/extend extend 1.5 add def }
if
macOutline true eq
{ /extend extend 2 add def }
if
macExtend true eq
{/extend extend 2 add def }
if
macShadow true eq
{/extend extend 2 add def }
if
macCondense true eq
{/extend extend 2 sub def }
if
foregroundColor useColor
theString
{
/theChar exch def
charString 0 theChar put
/charWidth charString stringwidth pop def % pop y dimen
32 theChar eq
{ /extraSpace extraSpaceWidth def }
{ /extraSpace extraCharWidth def }
ifelse
macShadow true eq
{
x 2 add y 2 add moveto % move down & right to draw shadow
charString drawChar
macBold true eq
{
x 3 add y 2 add moveto
charString drawChar
}
if
}
if
/boldstep 0 def
macBold true eq {2} {1} ifelse % loop 2ce if bold is on.
{
macShadow true eq macOutline true eq or
{
newpath
x boldstep add y moveto
textMatrix setmatrix
charString true charpath
originalMatrix setmatrix
pathNonZero true eq
{
1 setgray
fill
foregroundColor useColor
newpath
x boldstep add y moveto
textMatrix setmatrix
charString false charpath
originalMatrix setmatrix
0 setlinewidth
stroke
}
{
x boldstep add y moveto
charString drawChar
}
ifelse
}
{
x boldstep add y moveto
charString drawChar
}
ifelse
/boldstep boldstep 1 add def
}
repeat
originalMatrix setmatrix
macUnderline true eq
{
x y 1 add moveto
x charWidth add extraSpace add extend add y 1 add lineto
1 setlinewidth
stroke
}
if
/x x charWidth add extraSpace extend add add def
}
forall
grestore
}
if % if we were to suppress writing text out.
}
def
/txFont
{
/family exch def
family type /nametype eq
{
family findfont
}
{
family 134 eq
{/Linguistics findfont}
{family 149 eq
{/NewOrleans findfont}
{family 64 eq
{/Davids findfont}
{/Chicago findfont} % default font
ifelse}
ifelse}
ifelse
}
ifelse
typeSize scalefont
setfont
}
def
/txFace
{
/styleArray exch def
/macBold false def
/macItalic false def
/macUnderline false def
/macOutline false def
/macShadow false def
/macCondense false def
/macExtend false def
styleArray
{
/style exch def
style /bold eq {/macBold true def}
{style /italic eq {/macItalic true def}
{style /underline eq {/macUnderline true def}
{style /outline eq {/macOutline true def}
{style /shadow eq {/macShadow true def}
{style /condense eq {/macCondense true def}
{style /extend eq {/macExtend true def}
{ % Actually, this is an error condition of some sort
} ifelse
} ifelse
} ifelse
} ifelse
} ifelse
} ifelse
} ifelse
}
forall
}
def
/txMode
{ /textMode exch def }
def
/spExtra
{/extraSpaceWidth exch def }
def
/txSize
{
/newTypeSize exch def
currentfont
newTypeSize typeSize div scalefont
setfont
/typeSize newTypeSize def
}
def
/txRatio
{
/yscale exch def
/xscale exch def
}
def
/chExtra
{pop}
def
/longText
{
/theString exch def
/textY exch def
/textX exch def
textX textY theString PICTshow
}
def
/DHText
{
/theString exch def
/deltaX exch def
deltaX textX add textY theString longText
}
def
/DVText
{
/theString exch def
/deltaY exch def
textX deltaY textY add theString longText
}
def
/DHDVText
{
/theString exch def
/deltaY exch def
/deltaX exch def
deltaX textX add deltaY textY add theString longText
}
def
/fontName
{ txFont }
def
/lineJustify
{
pop
/extraCharWidth exch def
}
def
%END Text